* Формирование суммы прописью.
* Программа КОНЦЕПТ, 14.05.2012, www.gendoc.ru

присвоить 1;0 рублей 1;1 рубль 1;2 рубля 1;3 рубля 1;4 рубля 1;5 рублей 1;6 рублей 1;7 рублей 1;8 рублей 1;9 рублей
присвоить 2;0 тысяч 2;1 тысяча 2;2 тысячи 2;3 тысячи 2;4 тысячи 2;5 тысяч 2;6 тысяч 2;7 тысяч 2;8 тысяч 2;9 тысяч
присвоить 3;0 миллионов 3;1 миллион 3;2 миллиона 3;3 миллиона 3;4 миллиона 3;5 миллионов 3;6 миллионов 3;7 миллионов 3;8 миллионов 3;9 миллионов
присвоить 4;0 миллиардов 4;1 миллиард 4;2 миллиарда 4;3 миллиарда 4;4 миллиарда 4;5 миллиардов 4;6 миллиардов 4;7 миллиардов 4;8 миллиардов 4;9 миллиардов
присвоить 5;0 триллионов 5;1 триллион 5;2 триллиона 5;3 триллиона 5;4 триллиона 5;5 триллионов 5;6 триллионов 5;7 триллионов 5;8 триллионов 5;9 триллионов

ввести переменная СУММА 'Введите сумму (целое число):'
если [$УспешныйВвод] = [$Ложь]
  СТОП
конец
строка заменитьСимволы сумма [СУММА] ' ' ''
если (вычислить являетсяЧислом $результат [сумма] ) = [$Ложь]
  показать сообщение 'Необходимо ввести целое число.'
  СТОП  
конец

присвоить СУММА_ПРОПИСЬЮ ''
* Цикл по: рубль, тысяча, миллион, миллиард, триллион
для РАЗРЯД 1;2;3;4;5
  присвоить обработать_следующую_цифру [$Истина]
  * Цикл по: единицы, десятки, сотни
  для 1;2;3
    если [сумма] != ''
      * Выделение последней текущей цифры из числа и ее последующее удаление из суммы      
      вычислить остаток цифра [сумма] 10
      строка удалить сумма $ (строка размер $результат [сумма] ) 1
      если [обработать_следующую_цифру]
        присвоить обработать_следующую_цифру [$Истина]
        выбрать [$ОбъектЦикла]
          вариант 1
            если (строка последний $результат [сумма] ) == 1
              список отобразить цифра_прописью [цифра] '0;1;2;3;4;5;6;7;8;9' 'десять;одиннадцать;двенадцать;тринадцать;четырнадцать;пятнадцать;шестнадцать;семнадцать;восемнадцать;девятнадцать' ''
              присвоить обработать_следующую_цифру [$Ложь]
            иначе
              если [РАЗРЯД] = 2
                * Для тыcяч - женский род
                список отобразить цифра_прописью [цифра] '0;1;2;3;4;5;6;7;8;9' ';одна;две;три;четыре;пять;шесть;семь;восемь;девять' ''
              иначе
                список отобразить цифра_прописью [цифра] '0;1;2;3;4;5;6;7;8;9' ';один;два;три;четыре;пять;шесть;семь;восемь;девять' ''
              конец
            конец
          вариант 2
            список отобразить цифра_прописью [цифра] '0;1;2;3;4;5;6;7;8;9' ';десять;двадцать;тридцать;сорок;пятьдесят;шестьдесят;семьдесят;восемьдесят;девяносто' ''
          вариант 3
            список отобразить цифра_прописью [цифра] '0;1;2;3;4;5;6;7;8;9' ';сто;двести;триста;четыреста;пятьсот;шестьсот;семьсот;восемьсот;девятьсот' ''
        конецВыбора
        * Запись текста в сумму прописью  
        если [$ОбъектЦикла] = 1
          если [обработать_следующую_цифру]
            присвоить СУММА_ПРОПИСЬЮ "[[РАЗРЯД];[цифра]] [СУММА_ПРОПИСЬЮ]"
          иначе
            присвоить СУММА_ПРОПИСЬЮ "[[РАЗРЯД];9] [СУММА_ПРОПИСЬЮ]"
          конец
        конец
        если [цифра_прописью] != ''
          присвоить СУММА_ПРОПИСЬЮ "[цифра_прописью] [СУММА_ПРОПИСЬЮ]"
        конец
      иначе
        присвоить обработать_следующую_цифру [$Истина]
      конец
    конец
  следующий
следующий

>[СУММА] = [СУММА_ПРОПИСЬЮ]